Введите записьДЗ-13 10-А   Закончить программу вычисления  количества букв а в строке мама мыла раму
            10-Б  Закончить программу перестановки слов в словосочетании, используя цикл while или repeat until
ДЗ-12 Закончить классную программу::

 

Program Amstrong;

Var k,z,St: integer;

Function s (f:integer):integer; 'функция суммирует цифры числа

Var b:integer;

Begin

  b:=0;

  While f>0 do

    Begin

    b:=b+ f mod 10;

    f:=f div 10;

    end;

    s:=b;

end;

Function x (n:integer):integer;  'функция подсчитывает количество цифр

Var q: integer;

Begin

  q:=0;

  While n>0 do

    Begin

    n:=n div 10;

    q:=q+1;

    end;

    x:=q;

end;

Begin
              'вызов функции <имя функции>(<имя обрабатываемой переменной>)
End.

ДЗ-11 Код программы оформить в тетради. Тетради на проверку!
10-А. Задача:  Дано натуральное число n. Проверьте, будут ли все цифры числа различными.
10-Б. Задачи:  В1. Дано натуральное число n. Найти сумму первой и последней цифры числа.
                           В2. Дано натуральное число n. Переставьте местами первую и последнюю цифры числа.
               В3. Дано натуральное число n. Проверьте, есть ли в записи числа три одинаковых цифры (n<9999).

ДЗ-10 Задача: Найти наименьшую и наибольшую цифру в записи данного натурального числа. Оформить код программы в рабочей тетради.

ДЗ-9 Учебник п.10 Задачи № 3, 4 стр.74 решить с помощью машины Поста (можно скачать с сайта). Скриншоты решения вклеить в рабочую тетрадь (текст программы). Скриншот классной задачи 10-Б

ДЗ-8 Готовимся к самостоятельной работе по теме Алгоритмы (задания reshuege №11, №14, reshuoge №6)

ДЗ-2.   Учебник- п.2 + Вопросы к параграфу (знать ответы)

ДЗ-1   Учебник- п.1  + Что такое кибернетика?

Дистрибутив PascalABC скачать       Презентация по Паскалю         Машина Поста   FreePascal for Mac - пробуйте

Учебник 10 класс Семакин pdf на google-диске